define print-list
set $node = $arg0
while $node != 0
    print *$node
    set $node = $node->next
end
end
